home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / CineMorph / Test.cmorph < prev   
Text File  |  1996-03-02  |  360b  |  25 lines
  1. /*
  2.  * Text macro for CineMorph
  3.  *
  4.  */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. GetImageSize ; PARSE VAR result width height
  9. GetGridSize ; PARSE VAR result gridx gridy
  10.  
  11. LockGui
  12.  
  13. DO j = 0 TO (gridy-1)
  14.    DO i = 0 TO (gridx-1)
  15.       px = i * (width-1) / (gridx-1)
  16.       py = j * (height-1) / (gridy-1)
  17.       SetPoint Source i j px py
  18.       END
  19.    END
  20.  
  21. UnlockGui
  22. RedrawGrid Source
  23.  
  24. EXIT
  25.